Data Base of the Video Yearbook 1995/Data Base of the Video Yearbook 1995 - Disc 1.iso/cosmos/aiuew.dir/00004.ls

Text File | 1995-12-21 | 838 b | 31 lines

on exitFrame
  global taidata, taidataj, sdata, tj, moji, msno, yubicurs
  if soundBusy(1) = 0 then
    puppetSound("low2")
  end if
  highwaystar(msno)
  set the visible of sprite 2 to 1
  delete line 1 of field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ"
  put "ﾃﾂｮﾃｧDﾃﾂｴﾃﾂｻﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃﾂ敕雲ﾃ疫ﾃ嘉｣ﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃﾂｵﾃﾆ津ﾂ催ﾃｦﾃﾅｽﾃﾂ｢" into field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ"
  set tj to 0
  if tj = 1 then
    set taidata to EMPTY
    tgyou(moji)
  end if
  if tj = 0 then
    set taidataj to EMPTY
    set sdata to EMPTY
    put EMPTY into field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
    jgyou(moji)
    if the number of items in sdata = 1 then
      put "Nothing" into field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
    end if
  end if
  set yubicurs to list(904, 905)
  set the cursor of sprite 2 to yubicurs
  repeat with n = 6 to 21
    set the cursor of sprite n to yubicurs
  end repeat
  updateStage()
end